home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 9 / 64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64 / quicksort b 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  43 lines
  1. 10000 an=49152:ad=an:en=an+522
  2. 10002 ps=0:fori=0to15:readx:ps=ps+x:pokead+i,x:next:readx:ad=ad+16
  3. 10004 ifps<>xthensys45640
  4. 10006 ifad<enthen10002
  5. 10008 fori=0to21:readad:ad=ad+an:x=peek(ad+1)*256+peek(ad)+an
  6. 10010 y=int(x/256):x=x-y*256:pokead,x:pokead+1,y:next
  7. 10012 qs=an+12:return
  8. 10014 data 32,139,176,196,48,208,2,197,47,144,44,96,32,253,174,32,1820
  9. 10016 data 0,0,133,251,132,252,165,69,72,165,70,72,32,253,174,32,1872
  10. 10018 data 0,0,170,104,197,70,208,15,104,197,69,208,10,196,252,208,2008
  11. 10020 data 2,228,251,240,5,176,4,76,72,178,96,134,253,132,254,36,2137
  12. 10022 data 13,48,10,36,14,48,3,169,5,44,169,2,44,169,3,133,910
  13. 10024 data 87,169,0,141,15,194,165,253,56,229,251,133,88,165,254,229,2429
  14. 10026 data 252,133,89,162,15,169,0,24,38,88,38,89,42,176,4,197,1516
  15. 10028 data 87,144,3,229,87,56,202,208,239,38,88,38,89,162,0,160,1830
  16. 10030 data 0,165,87,133,90,24,138,101,88,170,152,101,89,168,198,90,1794
  17. 10032 data 208,244,138,101,251,133,88,152,101,252,133,89,160,4,177,88,2319
  18. 10034 data 153,98,0,136,16,248,162,3,181,251,149,88,202,16,249,165,2117
  19. 10036 data 89,197,91,208,4,165,88,197,90,176,6,32,48,1,76,175,1643
  20. 10038 data 0,165,252,197,91,208,4,165,251,197,90,176,51,165,253,32,2297
  21. 10040 data 23,1,165,254,32,23,1,165,88,32,23,1,165,89,32,23,1117
  22. 10042 data 1,165,90,133,253,165,91,133,254,32,86,0,32,38,1,133,1607
  23. 10044 data 89,32,38,1,133,88,32,38,1,133,254,32,38,1,133,253,1296
  24. 10046 data 165,89,197,254,208,4,165,88,197,253,176,22,165,88,133,251,2455
  25. 10048 data 165,89,133,252,76,86,0,174,15,194,48,7,157,16,194,238,1844
  26. 10050 data 15,194,96,76,53,164,206,15,194,174,15,194,189,16,194,96,1891
  27. 10052 data 165,90,72,165,91,72,169,98,133,90,169,0,133,91,32,254,1824
  28. 10054 data 1,176,6,32,155,1,76,62,1,104,133,91,104,133,90,165,1330
  29. 10056 data 88,72,165,89,72,169,98,133,88,169,0,133,89,32,254,1,1652
  30. 10058 data 176,6,32,143,1,76,93,1,104,133,89,104,133,88,165,91,1435
  31. 10060 data 197,89,208,4,165,90,197,88,144,32,240,16,164,87,136,177,2034
  32. 10062 data 88,170,177,90,145,88,138,145,90,136,16,243,32,155,1,165,1879
  33. 10064 data 90,56,229,87,133,90,176,2,198,91,96,165,88,24,101,87,1713
  34. 10066 data 133,88,144,2,230,89,96,160,0,177,88,209,90,208,5,200,1919
  35. 10068 data 196,87,208,245,96,160,1,177,88,48,6,177,90,16,232,56,1883
  36. 10070 data 96,177,90,16,7,32,167,1,240,3,144,243,24,96,160,0,1496
  37. 10072 data 177,88,16,231,177,90,48,207,24,96,160,2,177,88,153,92,1826
  38. 10074 data 0,177,90,153,95,0,136,16,243,200,196,92,240,11,196,95,1940
  39. 10076 data 240,7,177,93,209,96,240,241,96,165,92,197,95,96,165,87,2296
  40. 10078 data 201,2,240,202,201,3,240,210,208,171,0,0,0,0,0,0,1678
  41. 10080 data 16,32,188,191,208,213,218,223,234,237,242,247,252,277,319,324,327
  42. 10082 data 350,355,358,397,454
  43.